Loadstar 159/159.d81/b.64 lists

Commodore BASIC | 1997-01-01 | 3.1 KB | 83 lines

100 ifpeek(44)<>192thengosub60000:goto760
110 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
120 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
130 dimp$(12),f$(12):tt$="[195] - 6 4   [204] [201] [211] [212] [211]"
140 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
150 fori=1to3:print"[158]                                        ";:next
160 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub560
170 poke211,0:poke214,22:sys58732
180 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
190 print"[159]                                        ";
200 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
210 poke2023,peek(2022):poke56295,peek(56294):gosub560
220 print"[158]"spc(20-len(tt$)/2)tt$
230 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
240 [153]"":[129]i[178]1[164]17
250 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
260 [153]"":[129]i[178]1[164]14
270 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
280 [153]"":[129]i[178]1[164]14
290 [153]"open                               ":[130]
300 p$(1)[178]" (NULL)ist (NULL)f peekatn(NULL)right$len/(NULL)(NULL) (NULL)outines   "
310 p$(2)[178]" (NULL)prite (NULL)egisters            "
320 p$(3)[178]" (NULL)right$str$ (NULL)egisters               "
330 p$(4)[178]" 6502 right$nstruction (NULL)et        "
340 p$(5)[178]" len-64 (NULL)o 128 (NULL)emory (NULL)ap      "
350 p$(6)[178]" (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)          "
360 p$(7)[178]" (NULL)eset lenomputer              "
370 f$(1)[178]"routines"
380 f$(2)[178]"sprite regs
390 f$(3)="sid registers
400 f$(4)[178]"inst set
410 f$(5)="memory map"
420 f$(6)="hello connect"
430 f$(12)=""
440 print"":fori=1to7:print"[159]"p$(i):next:it=1:ot=1:gosub530
450 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"q"then450
460 ifa$="q"then580
470 ot=it:ifa$=""thenit=it+1:ifit>7thenit=1
480 ifa$="[145]"thenit=it-1:ifit<1thenit=7
490 ifa$<>chr$(13)thengosub530:goto450
500 iff$(it)=""thensys64738
510 ifit=7then580
520 goto640
530 poke214,ot+6:poke211,6:sys58732:print"[159]"p$(ot)
540 poke214,it+6:poke211,6:sys58732:wait53265,128,128:print"[146][153]"p$(it):return
550 stop
560 fori=217to242:pokei,peek(i)or128:next:return
570 close15:open15,8,15,"s:list menu":close15:save"list menu",8:stop
580 a$="hello connect":fori=8to13:close2:open2,i,2:close2:ifstthen600
590 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then610
600 next:print"[147]":poke186,8:end
610 q$=chr$(34):poke646,peek(53281):print"[147]"
620 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:p[207]46,8:clr:l[207]"q$a$q$","i
630 print"run:":poke631,13:poke632,13:poke198,2:end
640 a$=f$(it):fori=8to13:close2:open2,i,2:close2:ifstthen680
650 close15:poke787,119
660 open15,i,15,"r0:"+a$+"="+a$:input#15,e,e$:close15:ife=63then720
670 rem open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
680 next:poke214,23:poke211,0:sys58732:
690 a$="[195]ouldn't find "+f$(it)+"!"
700 print"[159]                                        [145]";spc(20-len(a$)/2)a$;
710 poke198,0:wait198,15:geta$:run
720 q$=chr$(34):poke646,peek(53281):print"[147]"
730 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:clr:l[207]"q$a$q$","i
740 print"run:":poke631,13:poke632,13:poke198,2:end
750 stop
760 a$="b.64 lists":fori=8to13:close2:open2,i,2:close2:ifstthen780
770 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then790
780 next:print"[144]":poke186,8:end
790 q$=chr$(34):poke646,peek(53281)
800 print"p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
810 print"run:":poke631,13:poke632,13:poke198,2:end
60000 print"[147]":z$=" [152]                                      ":poke214,10:print
60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[195] - 6 4   [204] [201] [211] [212] [211]"
60040 z$(2)="by [195]linton [207]'[206]eill
60050 z$(4)[178]"(c) 1997 by mid$ & asc (NULL)ublishing, right$nc."
60060 z$(6)[178]"(NULL)his program is not shareware
60070 z$(7)="or in the public domain."
60080 z$(9)="1-800-594-3370 or 1-318-221-8718
60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]